home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / 32k / demo / demo.bas < prev    next >
Encoding:
BASIC Source File  |  1993-07-08  |  3.6 KB  |  101 lines
  1. 1000 SHELL"chdir demo":COLOR 1,7,0
  2. 1010 SCREEN 0:SCREEN@ 2
  3. 1020 '
  4. 1030 'メインタイトル
  5. 1040 '
  6. 1050 CLS:LOAD@"bar.tif":WAIT 120
  7. 1060 LOAD@"image00.tif":WAIT 100
  8. 1070 LOAD@"image01.tif":WAIT 180
  9. 1080 SYMBOL(190,300),"Ｄ Ｅ Ｍ Ｏ",3,2,0,,,1
  10. 1090 SYMBOL(110,370),"photos by:David K.Brunn (C) Aris entertainments,1992",1,1,0,,,1
  11. 1100 W=200:GOSUB *待つ
  12. 1110 LINE(0,30)-(639,479),PSET,7,BF
  13. 1120 SYMBOL(120,190),"このプログラムは１６７０万色～２色のＴＩＦＦ画像を",1,1,0,,,1
  14. 1130 SYMBOL(120,220),"相互に変換する為のプログラムです",1,1,0,,,1
  15. 1140 GOSUB *待つ
  16. 1150 '
  17. 1160 'ロード画面
  18. 1170 '
  19. 1180 LINE(0,30)-(639,479),PSET,7,BF
  20. 1190 LOAD@"image02.tif"
  21. 1200 SYMBOL(180,380),"それでは、実際に画像の変換を見てみましょう",1,1,0,,,1
  22. 1210 GOSUB *待つ
  23. 1220 '
  24. 1230 '原画
  25. 1240 '
  26. 1250 LOAD@"image03.tif"
  27. 1260 SYMBOL(10,260),"これは元になる３万色画像です（表示は２５６色）",1,1,0,,,1
  28. 1270 GOSUB *待つ
  29. 1280 '
  30. 1290 SCREEN @0:SCREEN 1,1,3,1:SCREEN @0:LOAD@"image03b.tif"
  31. 1300 SCREEN 1,0,3,1:SCREEN @1,1:LOAD@"fokker.tif"
  32. 1310 SCREEN 1,1,3,1
  33. 1320 SYMBOL(10,260),"フルカラーカードを装着していると３万／１６７０万色表示も可能になります",1,1,0,,,1
  34. 1330 SYMBOL(10,300),"この原画がどのように変換されるでしょう",1,1,0,,,1
  35. 1340 GOSUB *待つ
  36. 1350 '
  37. 1360 'モノクロ
  38. 1370 '
  39. 1380 SCREEN 1,0,3,1:CLS
  40. 1390 SCREEN 0:SCREEN@ 0:LOAD@"BAR16.TIF":PALETTE 15,[255,255,255]
  41. 1400 SYMBOL(170,210),"モノクロ変換",3,2,0,,,1:GOSUB *待つ
  42. 1410 '
  43. 1420 CLS:LOAD@"m1.tif"
  44. 1430 SYMBOL(40,260),"モノクロ  単色",1,1,0,,,1:GOSUB *待つ
  45. 1440 '
  46. 1450 CLS:LOAD@"m16.tif"
  47. 1460 SYMBOL(40,260),"モノクロ  １６色",1,1,0,,,1:GOSUB *待つ
  48. 1470 '
  49. 1480 SCREEN@ 2:LOAD@"m256.tif"
  50. 1490 SYMBOL(40,260),"モノクロ  ２５６色",1,1,0,,,1:GOSUB *待つ
  51. 1500 '
  52. 1510 SCREEN@ 0:LOAD@"BAR16.TIF":PALETTE 15,[255,255,255]
  53. 1520 SYMBOL(160,210),"カラー減色変換",3,2,0,,,1:GOSUB *待つ
  54. 1530 '
  55. 1540 CLS:LOAD@"c8.tif"
  56. 1550 SYMBOL(40,260),"カラー　単純８色",1,1,0,,,1:GOSUB *待つ
  57. 1560 '
  58. 1570 CLS:LOAD@"cs16.tif"
  59. 1580 SYMBOL(40,260),"カラー　最適１６色",1,1,0,,,1:GOSUB *待つ
  60. 1590 '
  61. 1600 CLS:LOAD@"ctm.tif"
  62. 1610 SYMBOL(40,260),"カラー　TownsMENUパレット",1,1,0,,,1
  63. 1620 SYMBOL(40,300),"TownsMENUパレットを利用した16色画像にします",1,1,0,,,1
  64. 1630 SYMBOL(40,340),"この機能を利用すると自然画を元にしたアイコンを作成できます",1,1,0,,,1
  65. 1640 GOSUB *待つ
  66. 1650 '
  67. 1660 SCREEN@ 2:LOAD@"pal.tif",(400,100):LOAD@"c256.tif"
  68. 1670 SYMBOL(40,260),"カラー　単純２５６色",1,1,0,,,1:GOSUB *待つ
  69. 1680 '
  70. 1690 CLS:LOAD@"pal.tif",(400,100):LOAD@"cs256.tif"
  71. 1700 SYMBOL(40,260),"カラー　最適２５６色",1,1,0,,,1:GOSUB *待つ
  72. 1710 '
  73. 1720 CLS:LOAD@"pal.tif",(400,100):LOAD@"cn256.tif"
  74. 1730 SYMBOL(40,260),"カラー　任意色数最適化",1,1,0,,,1
  75. 1740 SYMBOL(40,300),"256色の内幾つのパレットを使うか自由に設定できます",1,1,0,,,1
  76. 1750 SYMBOL(40,340),"ここでは半分の128色のみを使っています",1,1,0,,,1
  77. 1760 GOSUB *待つ
  78. 1770 LINE(0,300)-(679,479),PSET,7,BF
  79. 1780 LOAD@"hawk.tif",(320,240)
  80. 1790 SYMBOL(40,300),"パレットが互いに独立しているので",1,1,0,,,1
  81. 1800 SYMBOL(40,340),"複数の256色画像の合成も容易です",1,1,0,,,1
  82. 1810 GOSUB *待つ
  83. 1820 WHILE INKEY$=""
  84. 1830  FOR J=1 TO 127:PALETTE J,[255,255,255]:NEXT:WAIT 50:LOAD@"p.tif"
  85. 1840  FOR J=128 TO 255:PALETTE J,[255,255,255]:NEXT:WAIT 50:LOAD@"p.tif"
  86. 1850 WEND
  87. 1860 '
  88. 1870 CLS:LOAD@"BAR.TIF":PALETTE 255,[255,255,255]
  89. 1880 SYMBOL(180,210),"画像の保存",3,2,0,,,1:GOSUB *待つ
  90. 1890 '
  91. 1900 CLS:LOAD@"image04.tif"
  92. 1910 SYMBOL(100,400),"減色画像はTIFFで、原画はJPEGで保存することができます",1,1,0,,,1
  93. 1920 GOSUB *待つ
  94. 1930 SHELL"chdir ..":SYSTEM
  95. 1940 '
  96. 1950 *待つ
  97. 1960 SYMBOL(460,460),"何かキーを押して下さい",1,1,0
  98. 1970 PTIME=TIME
  99. 1980 WHILE INKEY$="" AND TIME-PTIME<20:WEND
  100. 1990 RETURN
  101.